home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / misc / obrn-a_1.lha / oberon-a / src_upd1.lha / source / OL / OLPrefsStrings.mod < prev    next >
Text File  |  1995-07-30  |  6KB  |  169 lines
  1. <* STANDARD- *> <* MAIN- *> <* INITIALISE- *>
  2.  
  3. MODULE OLPrefsStrings;
  4. (****************************************************************
  5.  
  6.    This file was created automatically by `FlexCat 1.5'
  7.    Do NOT edit by hand!
  8.    Oberon-A source description C 1994 by Albert Weinert
  9.    Using with Oberon-A Interfaces for AmigaOS Release 3.1
  10.    Modified for Oberon-A 1.5 by Frank Copeland
  11.  
  12.    Application: OLPrefsStrings
  13.    Language   : "english"
  14.    Version    : 0
  15.    Description: OBERON-A:Catalogs/OLPrefsStrings.cd
  16.  
  17. ****************************************************************)
  18.  
  19. IMPORT
  20.   lo := Locale, e := Exec, u := Utility, y := SYSTEM;
  21.  
  22. CONST
  23.   builtinlanguage = "english";
  24.   version = 0;
  25.  
  26. CONST
  27.   msg1* = 0;
  28.   msg2* = 1;
  29.   gui1* = 2;
  30.   gui2* = 3;
  31.   gui3* = 4;
  32.   gui4* = 5;
  33.   gui5* = 6;
  34.   gui6* = 7;
  35.   gui7* = 8;
  36.   gui8* = 9;
  37.   gui9* = 10;
  38.   gui10* = 11;
  39.   gui11* = 12;
  40.   gui12* = 13;
  41.   gui13* = 14;
  42.   gui14* = 15;
  43.   gui15* = 16;
  44.   gui16* = 17;
  45.   gui17* = 18;
  46.   gui18* = 19;
  47.   gui19* = 20;
  48.   gui20* = 21;
  49.   gui21* = 22;
  50.   gui22* = 23;
  51.   gui23* = 24;
  52.   gui24* = 25;
  53.   gui25* = 26;
  54.   gui26* = 27;
  55.   gui27* = 28;
  56.   gui28* = 29;
  57.   gui29* = 30;
  58.   gui30* = 31;
  59.   gui31* = 32;
  60.   gui32* = 33;
  61.   gui33* = 34;
  62.   gui34* = 35;
  63.   gui35* = 36;
  64.   gui36* = 37;
  65.  
  66. TYPE
  67.   AppString = RECORD;
  68.      id  : LONGINT;
  69.      str : e.LSTRPTR;
  70.   END;
  71.   AppStringArray = ARRAY 38 OF AppString;
  72.  
  73. VAR
  74.   AppStrings : AppStringArray;
  75.   catalog : lo.CatalogPtr;
  76.  
  77.   PROCEDURE SetStrings;
  78.     BEGIN
  79.       AppStrings[0].id := msg1; AppStrings[0].str := y.ADR( "Too many arguments: select only one prefs file\n" );
  80.       AppStrings[1].id := msg2; AppStrings[1].str := y.ADR( "Out of memory\n" );
  81.       AppStrings[2].id := gui1; AppStrings[2].str := y.ADR( "OLPrefs" );
  82.       AppStrings[3].id := gui2; AppStrings[3].str := y.ADR( "OLPrefs Notice" );
  83.       AppStrings[4].id := gui3; AppStrings[4].str := y.ADR( "About OLPrefs" );
  84.       AppStrings[5].id := gui4; AppStrings[5].str := y.ADR( "Continue" );
  85.       AppStrings[6].id := gui5; AppStrings[6].str := y.ADR( "Preferences editor for OL\n\n"
  86.     "Written by Frank Copeland\n"
  87.     "Using Oberon-A and EAGUI\n\n"
  88.     "See OLPrefs.doc for conditions of use" );
  89.       AppStrings[7].id := gui6; AppStrings[7].str := y.ADR( "Choose a preferences file" );
  90.       AppStrings[8].id := gui7; AppStrings[8].str := y.ADR( "Could not load preferences file" );
  91.       AppStrings[9].id := gui8; AppStrings[9].str := y.ADR( "Could not save preferences file" );
  92.       AppStrings[10].id := gui9; AppStrings[10].str := y.ADR( "Could not create icon '%s'" );
  93.       AppStrings[11].id := gui10; AppStrings[11].str := y.ADR( "Could not get default icon" );
  94.       AppStrings[12].id := gui11; AppStrings[12].str := y.ADR( "Choose a linker" );
  95.       AppStrings[13].id := gui12; AppStrings[13].str := y.ADR( "Settings file:" );
  96.       AppStrings[14].id := gui13; AppStrings[14].str := y.ADR( "Symbol files" );
  97.       AppStrings[15].id := gui14; AppStrings[15].str := y.ADR( "Object files" );
  98.       AppStrings[16].id := gui15; AppStrings[16].str := y.ADR( "Search Paths" );
  99.       AppStrings[17].id := gui16; AppStrings[17].str := y.ADR( "With files" );
  100.       AppStrings[18].id := gui17; AppStrings[18].str := y.ADR( "Program files" );
  101.       AppStrings[19].id := gui18; AppStrings[19].str := y.ADR( "Destination Paths" );
  102.       AppStrings[20].id := gui19; AppStrings[20].str := y.ADR( "Symbol files" );
  103.       AppStrings[21].id := gui20; AppStrings[21].str := y.ADR( "Object files" );
  104.       AppStrings[22].id := gui21; AppStrings[22].str := y.ADR( "With files" );
  105.       AppStrings[23].id := gui22; AppStrings[23].str := y.ADR( "Extensions" );
  106.       AppStrings[24].id := gui23; AppStrings[24].str := y.ADR( "Verbose" );
  107.       AppStrings[25].id := gui24; AppStrings[25].str := y.ADR( "Make Icons" );
  108.       AppStrings[26].id := gui25; AppStrings[26].str := y.ADR( "Options" );
  109.       AppStrings[27].id := gui26; AppStrings[27].str := y.ADR( "Command" );
  110.       AppStrings[28].id := gui27; AppStrings[28].str := y.ADR( "Arguments" );
  111.       AppStrings[29].id := gui28; AppStrings[29].str := y.ADR( "Linker" );
  112.       AppStrings[30].id := gui29; AppStrings[30].str := y.ADR( "About..." );
  113.       AppStrings[31].id := gui30; AppStrings[31].str := y.ADR( "Save" );
  114.       AppStrings[32].id := gui31; AppStrings[32].str := y.ADR( "Save As..." );
  115.       AppStrings[33].id := gui32; AppStrings[33].str := y.ADR( "Quit" );
  116.       AppStrings[34].id := gui33; AppStrings[34].str := y.ADR( "With file format" );
  117.       AppStrings[35].id := gui34; AppStrings[35].str := y.ADR( "ALink" );
  118.       AppStrings[36].id := gui35; AppStrings[36].str := y.ADR( "BLink" );
  119.       AppStrings[37].id := gui36; AppStrings[37].str := y.ADR( "DLink" );
  120.     END SetStrings;
  121.  
  122.   PROCEDURE CloseCatalog*();
  123.     BEGIN
  124.       IF catalog # NIL THEN lo.CloseCatalog (catalog); catalog:=NIL END;
  125.    END CloseCatalog;
  126.  
  127.   PROCEDURE OpenCatalog*(loc:lo.LocalePtr; language:ARRAY OF CHAR);
  128.     VAR Tag : ARRAY 4 OF u.TagItem;
  129.     BEGIN
  130.       CloseCatalog();
  131.       IF (catalog = NIL) & (lo.base # NIL) THEN
  132.         Tag[0].tag := lo.builtInLanguage; Tag[0].data := y.ADR( builtinlanguage );
  133.         Tag[1].tag := u.ignore;           Tag[1].data := y.ADR( language );
  134.         Tag[2].tag := lo.version;         Tag[2].data := version;
  135.         Tag[3].tag := u.done;
  136.  
  137.         IF language # "" THEN
  138.           Tag[1].tag:= lo.language;
  139.         END;
  140.         catalog := lo.OpenCatalogA (loc, "OLPrefsStrings.catalog", Tag);
  141.       END;
  142.     END OpenCatalog;
  143.  
  144.   PROCEDURE GetString* (num: LONGINT): e.LSTRPTR;
  145.     VAR
  146.       i: LONGINT;
  147.       default: e.LSTRPTR;
  148.     BEGIN
  149.       i := 0; WHILE (i < 38) & (AppStrings[i].id # num) DO INC (i) END;
  150.  
  151.       IF i # 38 THEN
  152.         default := AppStrings[i].str;
  153.       ELSE
  154.         default := NIL;
  155.       END;
  156.  
  157.       IF catalog # NIL THEN
  158.         RETURN lo.GetCatalogStr (catalog, num, default^);
  159.       ELSE
  160.         RETURN default;
  161.       END;
  162.     END GetString;
  163.  
  164. BEGIN
  165.   catalog := NIL;
  166.   SetStrings;
  167. END OLPrefsStrings.
  168.  
  169.